program ej08; { Ejemplo 8 de CpcPaChi }
const modo =0, linea1 = 10;
begin
  cpcMode(modo);
  pen(2);
  paper(1);
  locate(10,linea1);
  writeChar( 'a' );
  
  (* Volvemos a escribir en
     la misma linea *)
  pen(4);
  paper(3);
  locate ( 1 ,  linea1 );
  writeChar('d');
end.

